home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / frantic fish_v1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  69 lines
  1. 1 print"[147]  frantic  fisherman"
  2. 2 print" loading characters.."
  3. 10 fort=7168to7168+62*8-1:reada:poket,a:next
  4. 20 data14,62,254,62,14,2,6,6
  5. 30 data14,14,14,22,22,22,54,54
  6. 40 data118,118,246,254,246,246,246,246
  7. 50 data0,0,0,1,1,3,7,7
  8. 60 data246,246,246,254,246,246,246,246
  9. 70 data15,31,63,127,255,255,255,255
  10. 80 data0,0,0,0,0,3,7,31
  11. 90 data246,246,6,254,254,6,6,15
  12. 100 data255,255,8,255,255,0,0,0
  13. 110 data127,127,64,255,255,0,0,0
  14. 120 data255,255,127,127,63,31,15,7
  15. 130 data170,255,85,0,255,85,0,170
  16. 140 data255,255,254,254,252,248,240,224
  17. 150 data6,12,24,240,192,0,0,0
  18. 160 data0,0,0,192,240,24,12,6
  19. 170 data96,48,24,15,3,0,0,0
  20. 180 data0,0,0,3,15,24,48,96
  21. 190 data40,40,170,60,28,252,12,60
  22. 200 data12,40,40,248,248,40,20,40
  23. 210 data40,40,170,60,52,63,48,60
  24. 220 data48,40,40,47,47,40,20,40
  25. 230 data32,48,190,187,252,255,190,128
  26. 240 data4,12,125,221,63,255,125,1
  27. 250 data0,0,0,0,0,0,7,195
  28. 260 data0,0,0,0,1,13,109,255
  29. 270 data0,0,0,0,128,224,248,248
  30. 280 data0,0,0,0,1,15,15,15
  31. 290 data7,3,15,63,255,255,255,255
  32. 300 data199,255,255,255,255,255,255,255
  33. 310 data255,255,255,255,255,255,255,255
  34. 320 data0,192,240,240,224,248,252,248
  35. 330 data255,7,31,127,3,24,31,31
  36. 340 data0,0,0,0,0,0,0,0
  37. 350 data255,255,255,255,255,127,255,255,0,0,0,0,0,0,0,0
  38. 360 data255,255,255,255,252,255,255,224
  39. 370 data255,192,240,252,0,0,128,0
  40. 380 data0,0,63,0,0,0,0,0
  41. 390 data3,3,193,1,1,1,0,0
  42. 400 data0,0,0,0,0,3,12,0
  43. 410 data0,0,0,48,192,0,0,0
  44. 420 data127,127,63,63,31,15,7,3
  45. 430 data1,2,4,8,16,32,64,128
  46. 440 data0,0,0,0,4,4,8,8
  47. 450 data255,127,31,7,0,0,0,4
  48. 460 data16,16,32,32,0,0,0,0
  49. 470 data4,4,4,4,4,4,4,0
  50. 475 data255,199,189,207,245,143,255,255
  51. 480 data255,129,145,169,169,169,145,255
  52. 490 data255,129,145,177,145,145,185,255
  53. 500 data255,129,153,165,137,145,189,255
  54. 510 data255,129,185,137,153,137,185,255
  55. 520 data255,129,153,169,189,137,137,255
  56. 530 data255,129,189,161,185,133,185,255
  57. 540 data255,129,157,161,185,165,153,255
  58. 550 data255,129,189,133,137,145,145,255
  59. 560 data255,129,153,165,153,165,153,255
  60. 570 data255,129,153,165,157,133,185,255
  61. 580 data20,58,28,119,8,54,8,54
  62. 590 data8,8,28,20,58,62,62,28
  63. 600 data28,62,127,73,8,8,40,16
  64. 610 data16,2,32,136,80,42,116,56
  65. 620 rem lower memory 512 bytes
  66. 630 poke52,peek(52)-2:poke56,peek(56)-2
  67. 700 print"load"chr$(34)"frantic2"chr$(34)",8"
  68. 710 poke198,4:fort=631to633:poket,145:next:poke634,13:end
  69.